home *** CD-ROM | disk | FTP | other *** search
/ Biodiversity of Illinois 2: Woodland Habitats / Biodiversity of Illinois 2 - Woodland Habitats.iso / mac / casts / PDFxtraBehaviors.cst / 00005_Script_PDF_Close < prev    next >
Text File  |  2006-07-11  |  3KB  |  90 lines
  1. -- Close
  2.  
  3. Property pEvent, pSprite, pAlertFlag
  4.  
  5. on doClose me
  6.   set err = PDF_Close(sprite pSprite)
  7.   if PDF_status(sprite pSprite) then alert "PDF Behavior Error"&RETURN&PDF_error(sprite pSprite)
  8. end doClose
  9.  
  10. on mouseUp me
  11.   if (pEvent = #mouseUp) then doClose(me)
  12. end mouseUp
  13.  
  14. on mouseDown me
  15.   if (pEvent = #mouseDown) then doClose(me)
  16. end mouseDown
  17.  
  18. on prepareFrame me
  19.   if (pEvent = #prepareFrame) then doClose(me)
  20. end prepareFrame
  21.  
  22. -- standard behavior stuff --
  23. on getPropertyDescriptionList me
  24.   set defaultValues = GetDefaultValues (me)
  25.   
  26.   set pdfSpriteList = getProp (defaultValues, #spriteList)
  27.   set defSprite     = getProp (defaultValues, #defaultSprite)  
  28.   if (defSprite=0) then 
  29.     if the ticks - pAlertFlag > 10 then
  30.       alert "Please create a sprite of type PDF first."
  31.     end if
  32.     set pAlertFlag = the ticks -- The ticks when the user clicked "OK"
  33.     
  34.     exit
  35.   end if
  36.   set p_list = [:]
  37.   addprop p_list, #pEvent, [ #comment: "Event", #format:#symbol, #range:[#mouseUp, #mouseDown, #prepareFrame], #default:#mouseUp]
  38.   addprop p_list, #pSprite, [ #comment: "PDF Sprite is in channel:", #format:#symbol, #range:pdfSpriteList, #default:defSprite]
  39.   return p_list
  40. end
  41.  
  42. on getBehaviorDescription
  43.   return "Close PDF document of designated PDF sprite." & RETURN& "All platforms." &RETURN&RETURN& "--- PARAMETERS --- " &RETURN& " - Sprite is in channel: which channel contains the PDF Sprite" &RETURN&RETURN& "Free to use and abuse. (c)1999, Integration New Media, Inc." &RETURN& "Thanks to James Newton for his suggestions"
  44. end
  45.  
  46. on getBehaviorTooltip
  47.   return "Close PDF document of designated PDF sprite." & RETURN& "All platforms."
  48.  
  49. -- utils --
  50. on GetDefaultValues me
  51.   if the currentSpriteNum then
  52.     set spriteList = GetSpriteList (me #PDF)
  53.     if count (spriteList) then
  54.       set defaultSprite = getAt (spriteList, 1)
  55.     else
  56.       set defaultSprite = 0
  57.     end if
  58.     
  59.     return [#spriteList: spriteList, #defaultSprite: defaultSprite]
  60.     
  61.   else -- the currentSpriteNum = 0
  62.     -- Director is merely recompiling this script: return dummy values
  63.     return [#spriteList: [1], #defaultSprite: 1]
  64.   end if
  65. end 
  66.  
  67.  
  68. on GetSpriteList me, memberType
  69.   -- return list of sprites of type memberType in current frame
  70.   global version
  71.   if (char 1 of version = 6) then
  72.     set maxSprite = 120
  73.   else
  74.     set maxSprite = the lastChannel
  75.   end if
  76.   
  77.   set aList=[]
  78.   
  79.   repeat with i = 1 to maxSprite
  80.     set spriteMember = the member of sprite i
  81.     -- if (string(m) contains "member 0") then next repeat -- unnecessary
  82.     if (the type of spriteMember = memberType) then -- (JN) Line break
  83.       append (aList, i)
  84.     end if
  85.   end repeat
  86.   
  87.   return aList
  88. end GetSpriteList
  89.  
  90. end DefaultSprite